home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / trigo.cl < prev   
Encoding:
Text File  |  1993-01-24  |  510 b   |  25 lines

  1. program trigo;
  2.  
  3. var
  4.     i : real;
  5. begin
  6.  
  7.     i := 0.3;
  8.  
  9.     writeln(' cos(i)=', cos(i));
  10.     writeln(' acos(i)=', acos(i));
  11.     writeln(' cosh(i)=', cosh(i));
  12.     writeln(' sin(i)=', sin(i));
  13.     writeln(' asin(i)=', asin(i));
  14.     writeln(' sinh(i)=', sinh(i));
  15.     writeln(' tan(i)=', tan(i));
  16.     writeln(' atan(i)=', atan(i));
  17.     writeln(' tanh(i)=', tanh(i));
  18.  
  19.     writeln(' odd(i)=', odd(i));
  20.     writeln(' even(i)=', even(i));
  21.     writeln(' pred(i)=', pred(i));
  22.     writeln(' succ(i)=', succ(i));
  23.  
  24. end.
  25.